<%@ Language=VBScript %>
<%Option Explicit%>

<!--#include file="../cons.asp"-->
<!--#include file="../../Common/Database.asp"-->

<%
	response.CacheControl = "no-cache"
	
	Dim Trimestre
	Trimestre = request("Trimestre")
	
	
%>

	<table cellpadding=0 cellspacing=0 width=100% height=100% style="border-collapse: collapse; font-family: Verndana; font-size: 12px;" ID="Table1">
		<tr valign="top" style="font-weight: bold; color: white;">
			<td style="background-color: #666666; height: 15px;">Trimestre</td>
			<td style="background-color: #666666;">Quincena</td>
			<td style="background-color: #666666; width: 50px; text-align: center;">Estado</td>
		</tr>
		<%GetTQE(Trimestre)%>
	</table>
<%
	
	
	
	'GetTQE(Trimestre)



Private function GetTQE(Trimestre)

	Dim oConn, sSQL, oRS

	Set oConn = OpenConnection
	
	sSQL = "select * from ColegioQuincena where Trimestre = " & Trimestre
'response.Write sSQL
'response.End
	Set oRS = oConn.Execute(sSQL)
	
	while not oRS.EOF
		response.Write "<tr>"
		response.Write "<td>" & oRS("Trimestre") & " Trimestre</td>"
		response.Write "<td>" & oRS("IdQuincena") & " Quincena</td>"
		response.Write "<td align=""center""><input type=""checkbox"" "
		if oRS("Estado") = "A" then
			response.Write "checked"
		end if
		response.Write " value=""" & oRS("IdColegioQuincena") & """ onclick=""SetQuincena(this.value, this.checked);""></td>"
		response.Write "</tr>"
		oRS.MoveNext()
	wend
	
End function

%>